home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SMES.PLP < prev    next >
Text File  |  1991-04-01  |  2KB  |  57 lines
  1. /* auto pilot program ｢NEM 2.04｣ 1991.4.01 By GOOSE(MAF00070) */
  2. /* Smes(ONEPROC);
  3. **   複数のテキストファイルを会議室に書き込む｡
  4. **     ONEPROC:書き込むファイル名列 ｢SMS=B:\MAIL\TEST1.TXT,B:\MAIL,No,｣
  5. */
  6. /* %Smes { */
  7. /*  [ONEPROC] */
  8.  
  9.   %send1mes { [SENDDATA]
  10.     %SENDFORM  @read(SENDDATA,1,1);
  11.     %SENDMES   @read(SENDDATA,2,1);
  12.     %SENDTITLE @read(SENDDATA,3,1);
  13.     %SENDRE    @read(SENDDATA,4,1);
  14.     var start[1];
  15.     %SENDTYPE @case(@head(SENDRE,{ })={RE},
  16.                 {Yes},{start:=5;im({2})},
  17.                 {No},{start:=4;im({1})});
  18.     type({GO }|SENDFORM);
  19.     loop({wait(ABORTTIME,{Abort},
  20.                {\n＞},{im({No})},
  21.                {\nFORUM>},{im({No})},
  22.                {\n続き (改行で表示},{type({\n});im({Yes})},
  23.                {\nmore>},{type({\n});im({Yes})})
  24.     });
  25.     type({MES }|SENDMES);
  26.     wait(ABORTTIME,{Abort},{\n＞},,{\nCCS(N)>},);
  27.     case(SENDTYPE={1},
  28.       {Yes},{type({SAY\n});
  29.              wait(ABORTTIME,{Abort},{2:コメント)\n：},);
  30.              type({1\n})},
  31.       {No},{type({RE }|@tail(SENDRE,{RE }))});
  32.     wait(ABORTTIME,{Abort},{終了は行頭で/E）\n},);
  33.     %temp @read(SENDDATA,start);
  34.     %temp2 {DEL }|PLTPATH|{\}|{NEMSEND.WRK};
  35.     dispoff({Yes});command(temp2);dispoff({No});
  36.     write(PLTPATH|{\}|{NEMSEND.WRK},temp);send(PLTPATH|{\}|{NEMSEND.WRK});
  37.     dispoff({Yes});command(temp2);dispoff({No});
  38.     type({\n});type({/E\n});
  39.     wait({180},{Abort},{2:しない)\n：},);
  40.     type({2\n});
  41.     wait(ABORTTIME,{Abort},{文字まで)\n：},);
  42.     type(SENDTITLE);
  43.     wait(ABORTTIME,{Abort},{2:NG)\n：},);
  44.     type({1\n});
  45.     wait(ABORTTIME,{Abort},{2:しない)\n：},);
  46.     case(DEBUG={Yes},{No},{type({1\n})},{Yes},{type({2\n})});
  47.     wait(ABORTTIME,{Abort},{\n＞},,{\nCCS(N)>},);
  48.   };
  49.  
  50.   var ALLDATA[256];ALLDATA:=@body(ONEPROC,{SMS=});
  51.   loop({%temp @head(ALLDATA,{,});
  52.         case(temp={No},
  53.           {Yes},{im({No})},
  54.           {No},{ALLDATA:=@body(ALLDATA,{,});send1mes(temp);im({Yes})}
  55.         )});
  56. /* }; */
  57.